Mobiclic 51/Mobiclic51.iso/mac/DATA/COMMUNS/MOBICLIC_MENUS.CST/00002_Script_gestionnaires généraux

Text File | 2003-01-30 | 6KB | 206 lines

-- gestionnaires gΘnΘraux -----------------------------------------

-- variables globales utilisΘes dans les scripts

global volumeOn, version
global validMHG,validMHD,validMBG,validMBD,menuMsg,menusActifs,menuOuvert
global ouvreMenuHG, fermeMenuHG, menuFermeHG
global ouvreMenuHD, fermeMenuHD, menuFermeHD
global ouvreMenuBD, fermeMenuBD, menuFermeBD
global ouvreMenuBG, fermeMenuBG, menuFermeBG
global gzeNoRub, gpistePause
-- initialisation des menus
on spritesMenus

  put empty into menuMsg
  put "Ouverture du film : " & the movieName & " α " & the time
  put "MΘmoire disponible : " & (the freeBytes/8) & " KO"
  -- mise α zΘro des variables de controle des menus
  razMenus
  -- activation des raccourcis clavier
  touchesOn
  -- dissimulation point pour glisserSur
  --  masquerPistes value(field "PPGS")(mis dans le script on beginSprite de la piste pointpour glisser
end spritesMenus

on razMenus
  -- menu Θquerre jaune
  RAZ_MAGIC_WINDOW("YELLOW")
  ouvreMenuHG=0
  fermeMenuHG=0
  menuFermeHG=1
  validMHG=value(line 1 of field "selectMenus")
  gzeNoRub = value(member("selectMenus").line[5])
  -- menu Θquerre verte
  RAZ_MAGIC_WINDOW("GREEN")
  ouvreMenuHD=0
  fermeMenuHD=0
  menuFermeHD=1
  tampon = duplicate(value(line 2 of field "selectMenus"))
  tampon.deleteAt(1)
  validMHD= tampon
  -- menu Θquerre bleue
  RAZ_MAGIC_WINDOW("BLUE")
  ouvreMenuBG=0
  fermeMenuBG=0
  menuFermeBG=1
  validMBG=value(line 3 of field "selectMenus")
  -- menu Θquerre rouge
  RAZ_MAGIC_WINDOW("RED")
  ouvreMenuBD=0
  fermeMenuBD=0
  menuFermeBD=1
  validMBD=value(line 4 of field "selectMenus")
  validMBD.add(1)--pour palier momentannΘment le manque d'un bit pour ecouter/couper musique
  --
  menuOuvert=0
  volumeOn=0
  menusActifs = 1
  put "Menus initialisΘs"
end

-- gestion des messages renvoyΘs par les menus
on gestMenus
  if menuMsg <> empty then
    put "++ Message gΘrΘ : " & menuMsg
    do menuMsg
    menuMsg=empty
  end if
end gestMenus

-- actions de l'Θquerre jaune

--------------------------------------------
-- introduit pour la gestion des palettes de l'Asie òòòòòòòòòòòòòòòòò
on quitterAtlas
  if the movieName contains "ai0" then
    forget window "paletteFTC"
    forget window "paletteRep"
  end if
end
------------------
on CYBERBIB
  global gFlag_special_EKR
  dossier = "CALEND"
  go movie "@/CALEND/CALEN97"
end
------------------

on rub1
  quitterAtlas -- fermeture Θventuelle des palettes atlas òòòòòòòò
  global gFlag_special_EKR
  if gFlag_special_EKR <> VOID  then-- permet de gΘrer la commande en interne dans le .dir concernΘ grΓce α la procΘdure locale
    local_rubrik1()
  else
    dossier = member("rubriques").line[1].word[1]
    film = member("rubriques").line[1].word[2]
    acces dossier, film
  end if
end
---------------------------------------
on rub2
  --
  global sonAI03, ai01
  sonAI03 = 0
  ai01=0
  -- òòòòòòòòòòòòòò
  global  gFlag_special_EKR
  if gFlag_special_EKR <> VOID  then -- permet de gΘrer la commande en interne dans le .dir concernΘ grΓce α la procΘdure locale
    local_rubrik2()
  else
    dossier = member("rubriques").line[2].word[1]
    film = member("rubriques").line[2].word[2]
    acces dossier, film
  end if
end
--òòòòòòòòòòòòòòòòòòòòòòòòòòòòò
on atlas
  global retourDemoAtlas
  retourDemoAtlas=the pathName & the movieName
  quitterAtlas -- fermeture Θventuelle des palettes atlas òòòòòòòò
  acces("demoAtlas","Ecran1_2_3")
end
--òòòòòòòòòòòòòòòòòòòòòòòòòòòòò
on calendrier
  quitterAtlas -- fermeture Θventuelle des palettes atlas òòòòòòòò
  global gFlag_special_EKR-- permet de gΘrer la commande en interne dans le .dir concernΘ grΓce α la procΘdure locale
  if gFlag_special_EKR <> VOID  then
    local_calend()
  else
    acces("calend","calend")
  end if
end
------------------------------------
on langues
  quitterAtlas -- fermeture Θventuelle des palettes atlas òòòòòòòò
  global lan01,lan02, lan03, lan04,  gFlag_special_EKR-- permet de gΘrer la commande en interne dans le .dir concernΘ grΓce α la procΘdure locale
  if gFlag_special_EKR <> VOID  then
    local_langues()
  else
    lan01=0
    lan02=0
    lan03=0
    lan04=0
    acces("langues","Lan00")
  end if
end
----------------------------------
on jeux
  quitterAtlas -- fermeture Θventuelle des palettes atlas òòòòòòòò
  global gFlag_special_EKR-- permet de gΘrer la commande en interne dans le .dir concernΘ grΓce α la procΘdure locale
  if gFlag_special_EKR <> VOID  then
    local_quiz()
  else
    acces "jeux","quiz"
  end if
end
-----------------
on RUBRIKBESTOF
  global gFlag_special_EKR-- permet de gΘrer la commande en interne dans le .dir concernΘ grΓce α la procΘdure locale
  if gFlag_special_EKR <> VOID  then
    local_RUBRIKBESTOF()
  else
    acces "RUBRIKBESTOF","BESTOF00"
  end if
  --------------------
on commande
  quitterAtlas -- fermeture Θventuelle des palettes atlas òòòòòòòò
  global ListeCom, ListeQte, ListeTotal
  ListeCom = []
  ListeQte = []
  ListeTotal = []
  acces ("com","com01")
end


on milan
  quitterAtlas -- fermeture Θventuelle des palettes atlas òòòòòòòò
  --  acces("data","menu")
  go movie "@/MENU"
end milan

on bondabo
  quitterAtlas -- fermeture Θventuelle des palettes atlas òòòòòòòò
  global ListeCom
  initGlobals
  append Listecom, new(script"magazine parent",20)
  acces("prom","prom02")
end bondabo

-- actions communes α tous les films
on stop
  global gFlag_JLM, gpistePause, gFlag_hideWindows
  if the pauseState = true then
    if gFlag_hideWindows <> VOID then resume_window()
    puppetSprite gpistePause, FALSE
    updateStage
    go to the frame
  else
    if gFlag_hideWindows <> VOID then hide_window()
    H = sprite(gpistePause).member.height
    sprite(gpistePause).locV = H/2
    updateStage
    pause
  end if
end stop